home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / capparmode.tex < prev    next >
Encoding:
Text File  |  1992-08-26  |  1.1 KB  |  34 lines
  1. % Copyright (c) 1986 David J. Braunegg.  All rights reserved.
  2. % Distribution of this file is unrestricted provided that this notice 
  3. % is not removed.
  4.  
  5. %%% CAPPARMODE
  6.  
  7. %%% Macros to typeset paragraphs with the first letter of the paragraph in
  8. %%% a large font with the first few lines of the paragraph indented to
  9. %%% make room for this first large letter
  10.  
  11. \font\big=cmr10 scaled\magstep5
  12.  
  13. \newdimen\saveparindent
  14.  
  15. %%% This macro gets you into capparmode mode.  Get back out with \endcapparmode
  16. \def\capparmode{\saveparindent=\parindent
  17.                 \parindent=0pt
  18.                 \everypar={\futurelet\cap\bigcap}}
  19.  
  20. \def\bigcap{\setbox0=\vbox to 1.5ex{\hbox{\big\cap}}%
  21.             \dimen0=\wd0%
  22.             \advance\dimen0 by 0.5em
  23.             \hangindent=\dimen0%
  24.             \hangafter=-2%
  25.             \hbox to0pt{\hskip-\hangindent\box0}%
  26.             \let\discard=}
  27.  
  28. \def\endcapparmode{\parindent=\saveparindent
  29.                    \everypar={}}
  30.  
  31. %%% This macro causes the next paragraph only to be set in capparmode.
  32. \def\cappar{\noindent
  33.             \futurelet\cap\bigcap}
  34.